home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / STRUCT.ICN < prev    next >
Text File  |  1990-03-28  |  10KB  |  200 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure p1()
  4.    write(" ----> ",image() | "none")
  5.    write("list(0) ----> ",image(list(0)) | "none")
  6.    write("list(0,1) ----> ",image(list(0,1)) | "none")
  7.    write("list(1,1) ----> ",image(list(1,1)) | "none")
  8.    write("list(100,\"a\") ----> ",image(list(100,"a")) | "none")
  9.    write("table() ----> ",image(table()) | "none")
  10.    write("table(0) ----> ",image(table(0)) | "none")
  11.    write("a := [] ----> ",image(a := []) | "none")
  12.    write("every put(a,!&lcase) ----> ",image(every put(a,!&lcase)) | "none")
  13.    write("a1 := sort(a) ----> ",image(a1 := sort(a)) | "none")
  14.    write("every write(!a1) ----> ",image(every write(!a1)) | "none")
  15. end
  16.  
  17. procedure p2()
  18.    write("sort(a1) ----> ",image(sort(a1)) | "none")
  19.    write("t := table() ----> ",image(t := table()) | "none")
  20.    write("every t[!&lcase] := 1 ----> ",image(every t[!&lcase] := 1) | "none")
  21.    write("sort(t) ----> ",image(sort(t)) | "none")
  22.    write("a := sort(t) ----> ",image(a := sort(t)) | "none")
  23.    write("every write((!a)[1]) ----> ",image(every write((!a)[1])) | "none")
  24.    write("every write((!a)[2]) ----> ",image(every write((!a)[2])) | "none")
  25.    write("set([1,0,1,0,1,0,1,0]) ----> ",image(set([1,0,1,0,1,0,1,0])) | "none")
  26.    write("set([]) ----> ",image(set([])) | "none")
  27.    write("s := set([1,2,3,4,5,6,7,8,9,10]) ----> ",image(s := set([1,2,3,4,5,6,7,8,9,10])) | "none")
  28.    write("*s ----> ",image(*s) | "none")
  29. end
  30.  
  31. procedure p3()
  32.    write("every write(!sort(s)) ----> ",image(every write(!sort(s))) | "none")
  33.    write("*copy(s) ----> ",image(*copy(s)) | "none")
  34.    write("image(s) ----> ",image(image(s)) | "none")
  35.    write("type(s) ----> ",image(type(s)) | "none")
  36.    write("member(s,8) ----> ",image(member(s,8)) | "none")
  37.    write("member(s,\"8\") ----> ",image(member(s,"8")) | "none")
  38.    write("s := set([]) ----> ",image(s := set([])) | "none")
  39.    write("every insert(s,1 to 100) ----> ",image(every insert(s,1 to 100)) | "none")
  40.    write("*s ----> ",image(*s) | "none")
  41.    write("every delete(s,15 to 30) ----> ",image(every delete(s,15 to 30)) | "none")
  42.    write("*s ----> ",image(*s) | "none")
  43. end
  44.  
  45. procedure p4()
  46.    write("every s1 := insert(set([]),!&lcase) ----> ",image(every s1 := insert(set([]),!&lcase)) | "none")
  47.    write("s2 := set([\"a\",\"aa\",\"ab\",\"b\",1,2,3,4]) ----> ",image(s2 := set(["a","aa","ab","b",1,2,3,4])) | "none")
  48.    write("s3 := s1 ++ s2 ----> ",image(s3 := s1 ++ s2) | "none")
  49.    write("s4 := s1 ** s2 ----> ",image(s4 := s1 ** s2) | "none")
  50.    write("s5 := s1 -- s2 ----> ",image(s5 := s1 -- s2) | "none")
  51.    write("*s3 ----> ",image(*s3) | "none")
  52.    write("*s4 ----> ",image(*s4) | "none")
  53.    write("*s5 ----> ",image(*s5) | "none")
  54.    write("t := table() ----> ",image(t := table()) | "none")
  55.    write("every t[1 | &output | &cset | [] | \"hello\" | main | 2 | table()] := ?100 ----> ",image(every t[1 | &output | &cset | [] | "hello" | main | 2 | table()] := ?100) | "none")
  56.    write("a := sort(t,3) ----> ",image(a := sort(t,3)) | "none")
  57. end
  58.  
  59. procedure p5()
  60.    write("every i := 1 to *a - 1 by 2 do write(image(a[i]),\" \",a[i + 1]) ----> ",image(every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1])) | "none")
  61.    write("a := sort(t,4) ----> ",image(a := sort(t,4)) | "none")
  62.    write("every i := 1 to *a - 1 by 2 do write(image(a[i]),\" \",a[i + 1]) ----> ",image(every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1])) | "none")
  63.    write("t := table() ----> ",image(t := table()) | "none")
  64.    write("every t[1 | &output | &cset | [] | \"hello\" | main | 2 | table()] := ?100 ----> ",image(every t[1 | &output | &cset | [] | "hello" | main | 2 | table()] := ?100) | "none")
  65.    write("a := sort(t,3) ----> ",image(a := sort(t,3)) | "none")
  66.    write("every i := 1 to *a - 1 by 2 do write(image(a[i]),\" \",a[i + 1]) ----> ",image(every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1])) | "none")
  67.    write("a := sort(t,4) ----> ",image(a := sort(t,4)) | "none")
  68.    write("every i := 1 to *a - 1 by 2 do write(image(a[i]),\" \",a[i + 1]) ----> ",image(every i := 1 to *a - 1 by 2 do write(image(a[i])," ",a[i + 1])) | "none")
  69.    write("x := [array(),table(),write,[],&input,1,\"abc\",'aa',&null] ----> ",image(x := [array(),table(),write,[],&input,1,"abc",'aa',&null]) | "none")
  70.    write("x := sort(x) ----> ",image(x := sort(x)) | "none")
  71. end
  72.  
  73. procedure p6()
  74.    write("every write(image(!x)) ----> ",image(every write(image(!x))) | "none")
  75.    write("t := table(table()) ----> ",image(t := table(table())) | "none")
  76.    write("every t[1 to 10] := 1 do write(image(t)) ----> ",image(every t[1 to 10] := 1 do write(image(t))) | "none")
  77.    write("t := table() ----> ",image(t := table()) | "none")
  78.    write("every t[1 to 10] := 1 do write(*t) ----> ",image(every t[1 to 10] := 1 do write(*t)) | "none")
  79.    write("t[] := 6 ----> ",image(t[] := 6) | "none")
  80.    write("t[] ----> ",image(t[]) | "none")
  81.    write("*t ----> ",image(*t) | "none")
  82.    write("t[&null] := 7 ----> ",image(t[&null] := 7) | "none")
  83.    write("t[] ----> ",image(t[]) | "none")
  84.    write("*t ----> ",image(*t) | "none")
  85. end
  86.  
  87. procedure p7()
  88.    write("x := [] ----> ",image(x := []) | "none")
  89.    write("*x ----> ",image(*x) | "none")
  90.    write("every push(x,1 to 10) ----> ",image(every push(x,1 to 10)) | "none")
  91.    write("every 1 to 10 do write(pop(x)) ----> ",image(every 1 to 10 do write(pop(x))) | "none")
  92.    write("*x ----> ",image(*x) | "none")
  93.    write("pop(x) ----> ",image(pop(x)) | "none")
  94.    write("pull(x) ----> ",image(pull(x)) | "none")
  95.    write("get(x) ----> ",image(get(x)) | "none")
  96.    write("every put(x,1 to 10) ----> ",image(every put(x,1 to 10)) | "none")
  97.    write("every 1 to 10 do write(get(x)) ----> ",image(every 1 to 10 do write(get(x))) | "none")
  98.    write("every push(x,1 to 10) ----> ",image(every push(x,1 to 10)) | "none")
  99. end
  100.  
  101. procedure p8()
  102.    write("every 1 to 10 do write(pull(x)) ----> ",image(every 1 to 10 do write(pull(x))) | "none")
  103.    write("x := [1,2,3,4,5,6,7,8,9,0] ----> ",image(x := [1,2,3,4,5,6,7,8,9,0]) | "none")
  104.    write("every write(image(x[1:0 to -20 by -1])) ----> ",image(every write(image(x[1:0 to -20 by -1]))) | "none")
  105.    write("a := [1,2,3,4,5,6,7,8] ----> ",image(a := [1,2,3,4,5,6,7,8]) | "none")
  106.    write("a1 := a[2:4] ----> ",image(a1 := a[2:4]) | "none")
  107.    write("a2 := a[7:2] ----> ",image(a2 := a[7:2]) | "none")
  108.    write("a3 := a[2+:3] ----> ",image(a3 := a[2+:3]) | "none")
  109.    write("a4 := a[-1-:3] ----> ",image(a4 := a[-1-:3]) | "none")
  110.    write("a1[1] ----> ",image(a1[1]) | "none")
  111.    write("a2[1] ----> ",image(a2[1]) | "none")
  112.    write("a3[1] ----> ",image(a3[1]) | "none")
  113. end
  114.  
  115. procedure p9()
  116.    write("a4[1] ----> ",image(a4[1]) | "none")
  117.    write("a4[1] := a ----> ",image(a4[1] := a) | "none")
  118.    write("a := [1,2,3,4] ----> ",image(a := [1,2,3,4]) | "none")
  119.    write("a1 := a[1:2] ----> ",image(a1 := a[1:2]) | "none")
  120.    write("every write(!a1) ----> ",image(every write(!a1)) | "none")
  121.    write("a2 := a[3:0] ----> ",image(a2 := a[3:0]) | "none")
  122.    write("every write(!a2) ----> ",image(every write(!a2)) | "none")
  123.    write("a4 := a[2:2] ----> ",image(a4 := a[2:2]) | "none")
  124.    write("every write(!a4) ----> ",image(every write(!a4)) | "none")
  125.    write("a5 := a[0-:2] ----> ",image(a5 := a[0-:2]) | "none")
  126.    write("every write(!a5) ----> ",image(every write(!a5)) | "none")
  127. end
  128.  
  129. procedure p10()
  130.    write("a3 := a[0:3] ----> ",image(a3 := a[0:3]) | "none")
  131.    write("every write(!a3) ----> ",image(every write(!a3)) | "none")
  132.    write("a := \"abcd\" ----> ",image(a := "abcd") | "none")
  133.    write("a1 := a[1:2] ----> ",image(a1 := a[1:2]) | "none")
  134.    write("every write(!a1) ----> ",image(every write(!a1)) | "none")
  135.    write("a2 := a[3:0] ----> ",image(a2 := a[3:0]) | "none")
  136.    write("every write(!a2) ----> ",image(every write(!a2)) | "none")
  137.    write("a3 := a[0:3] ----> ",image(a3 := a[0:3]) | "none")
  138.    write("every write(!a3) ----> ",image(every write(!a3)) | "none")
  139.    write("a4 := a[2:2] ----> ",image(a4 := a[2:2]) | "none")
  140.    write("every write(!a4) ----> ",image(every write(!a4)) | "none")
  141. end
  142.  
  143. procedure p11()
  144.    write("a5 := a[0-:2] ----> ",image(a5 := a[0-:2]) | "none")
  145.    write("every write(!a5) ----> ",image(every write(!a5)) | "none")
  146.    write("[] ||| [] ----> ",image([] ||| []) | "none")
  147.    write("[1,2,3] ||| [] ----> ",image([1,2,3] ||| []) | "none")
  148.    write("[] ||| [1,2,3] ----> ",image([] ||| [1,2,3]) | "none")
  149.    write("r := array(1,2,3,4,5,6,7,8,9) ----> ",image(r := array(1,2,3,4,5,6,7,8,9)) | "none")
  150.    write("r.a ----> ",image(r.a) | "none")
  151.    write("r.b ----> ",image(r.b) | "none")
  152.    write("r.c ----> ",image(r.c) | "none")
  153.    write("r.d ----> ",image(r.d) | "none")
  154.    write("r.e ----> ",image(r.e) | "none")
  155. end
  156.  
  157. procedure p12()
  158.    write("r.f ----> ",image(r.f) | "none")
  159.    write("type(r) ----> ",image(type(r)) | "none")
  160.    write("image(r) ----> ",image(image(r)) | "none")
  161.    write("r.a +:= 0 ----> ",image(r.a +:= 0) | "none")
  162.    write("r.b +:= 0 ----> ",image(r.b +:= 0) | "none")
  163.    write("r.c +:= 0 ----> ",image(r.c +:= 0) | "none")
  164.    write("r.d +:= 0 ----> ",image(r.d +:= 0) | "none")
  165.    write("r.e +:= 0 ----> ",image(r.e +:= 0) | "none")
  166.    write("r.f +:= 0 ----> ",image(r.f +:= 0) | "none")
  167.    write("r.a ----> ",image(r.a) | "none")
  168.    write("r.b ----> ",image(r.b) | "none")
  169. end
  170.  
  171. procedure p13()
  172.    write("r.c ----> ",image(r.c) | "none")
  173.    write("r.d ----> ",image(r.d) | "none")
  174.    write("r.e ----> ",image(r.e) | "none")
  175.    write("r.f ----> ",image(r.f) | "none")
  176.    write("r := array(\"a\",2,array(),r,main) ----> ",image(r := array("a",2,3.5,array(),r,main)) | "none")
  177.    write("every write(image(!r)) ----> ",image(every write(image(!r))) | "none")
  178.    write("r[1] :=: r.d ----> ",image(r[1] :=: r.d) | "none")
  179.    write("every write(image(!r)) ----> ",image(every write(image(!r))) | "none")
  180. end
  181.  
  182. procedure main()
  183.    p1()
  184.    p2()
  185.    p3()
  186.    p4()
  187.    p5()
  188.    p6()
  189.    p7()
  190.    p8()
  191.    p9()
  192.    p10()
  193.    p11()
  194.    p12()
  195.    p13()
  196. end
  197.  
  198. global s, t, x, r
  199. global a, a1, a2, a3, a4
  200.